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04-000 Source Listing if-bep-1964 93:95:35 DLEKSVMSMASTER CEDF-SRCIJEDFMAIN. PAS; 1°77) ; 


Added ADD_KEY, DELETE_KEY scripts. 
Transferred some initializations from 
INIT_EDITOR to EDFVAR. Changed ‘redesign’ 
to ‘touchup’. 


v03-009 KFHO009 Ken Henderson 14 Apr 1983 
Added SET_FUNCTION, RESPONSES 
GRANULARITY, PROMPTING, JOURNAL_ENABLED. 


v03-008 KPHOO0S Ken Henderson 20 Jan 1983 
s 


emoved references to DASH. 


| 
| 
1 {C IDENT (*v04-000"), 
§ { ++ 
Q PARBAAAAALALELALALALALL LASALLE SALLE LEASE EERE LEER ESE REESE EERE EERE EERE ESE RSE SS | 01 
ee t 
#* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY s | 
** DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
8 ve ALL RIGHTS RESERVED. * | 
® 
19 ** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
001 ae LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
pole ** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 ** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
Bore ** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 01 
A? ne TRANSFERRED. * b's 
® 
Sore ** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * Or 
id ** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * Or 
B18 ~ CORPORATION. a e 
a 
0021 ** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 01 
4 ¢ “ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . e 
0024 we * | ° 
oe 5 SHERRATT AAAAARAAARAAAAAAAAAARAAAAAEAETEKAAAAAAEAAAETAEARAAAAAAREAARERAEARAEEEE 
a rele 
3 y FACILITY: VAX/VMS EDF (EDIT/FDL) UTILITY 8 
0031 ABSTRACT: This facility is used to create, modify, and optimize 0 
0088 FDL specification files. s 
st 44 ENVIRONMENT: NATIVE/USER MODE s 
i AUTHOR : Ken F. Henderson Jr. e 
00 CREATION DATE: 27-Mar-1981 e 
MODIFIED BY: ° 
v03-011 KFHOO11 Ken Henderson 8 Aug 1983 0 
Changes for seperate compilation. | Q 
v03-010 KFHOO10 Ken Henderson 26 Apr 1983 
felt 
| A 
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Source Listing r$ep-19be 15:99:22 DISKSVMSMASTERSEEDFSSRCJEDFMAIN.PAS:T TT) 
v03-007 KFHOO07 Ken Henderson 30 Dec 1982 
Finished support of Pascal v2. 
v03-006 KFHO006 Ken Henderson 22 Nov 1982 


Added support for Peace) Ve. 
Added support for additional FILE and 
CONNECT attributes. 


v03-005 KFHOOOS Ken Henderson 8 Sept 1982 
Modified references to many yortqotes 
to fit with database reorganization. 


v03-004 KFHOOO0S Ken Henderson 26-Mar-1982 
Modified Mainline code to establish 
the CTRLZ handler before asking to 


conti fter an error parsing the 

FDL definition tile - QAR B85.” 
v03-002 KFHOOO2 Ken Henderson 

Modified routines INPUT_FDL_FILE and 


INPUT mg Mf FILE an toe mainline 
code fo fix FT2 QARs 694,699 


vO3-001 KFHOOO1 Ken Henderson 
Reset TEMP_FULL_PROMPT to false in the main 
loop. (dispatch function) 


23-Mar-1982 


17-Mar-1982 


; 
0 
8 
3 
8 
8 
0 
; 
; 
4 
4 
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{ +¢ 
This is the List of environments 


INHERIT (¢ 


*SYSSLIBRARY: STARLET", syotee efinitions 
*SHRLIBS:FDLPARDEF’, FDL facility definitions } 
opeek Eoscthor MSG’, FDL Message definitions 
*LIBS:EDFSTRUCT', EDF Tparse and other definitions } ‘ 
*LIBS:EDFSDLMSG’, EDF Message definitions | 
95 ot IBS: EDE CONST" » 
1 {CIBS:EDE TYPE, 
101 *LIBS:EDFVAR 
1 : "LIBS: EDFEXTERN’, 
1 ‘LIBS: EDF CHF, 
104 ‘LIBS:EDFUTIL’, 
105 *LIBS:EDFASK" . 
1 *LIBS:EDF SHOW’, 
10 *LIBS:EDFDESIGN’, 
108 "LIBS: EDFFUNCS’ 
109 
ois rv | 
0112 PROGRAM EDF (INPUT,OUTPUT); 
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SS 
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{ +¢ 

INIT_EDITOR == Initialize EDF upon startup. 

This is the setup code to create the initial conditions for EDF. 
CALLING SEQUENCE: 

INIT_EDITOR; 

INPUT PARAMETERS: 


> 


MEUM 0 OONOUE WN “OODNOUE 


none 

IMPLICIT INPUTS: 

DCL (through the CLI$ routines) 
OUTPUT PARAMETERS: 


Q 
Q 
8 
8 
4 
0 


1 
1 
1 
1 
1 
1 i 
1 
1 
1 | 
\ 
1 
1 
1 
1 | 
1 
1 
1 
i | 
; | 
; none 
| IMPLICIT OUTPUTS: | 
138 EDITING 
139 ANSI_RESET 

9140 ANS1~BOLD 

O14) ANS I “UNDERSCORE | 
128 ANSI "REVERSE 
144 NULL “STRINGS 
145 SHIFT 

0146 LOW SHIFT 
14 TERMINAL_SPEED 

O148 RMS_INPUT_ERROR 
149 VID- TERM 

0150 DEV" TYPE 
151 LINE_WIDTH 
138 LINES_PER_PAGE 
15 VIDEO" TERMINAL 
3 NULL_CHAR 
155 CONTROL _G 
196 CONTROL —W 
15 CONTROL ~2 | 
138 TAB 
1 CRLF 
160 ESCAPE 
161 QUESTION_MARK 
16¢ FDL_BLOCR 
16 FDLSAL_BLOCK 
164 EDF $GL~PROT_MASK 
165 EDF SGL-FID1 
166 EOF SGL_F 1D¢ 
16 ED SGL_F 1D 
18 ESrael-Uit eee | 
190 EDF SAB" STRING 
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Source Listing 
PROCEDURE INIT_EDITOR; 


VAR 
TEMP _DESCRIPTOR 
BEGIN 


{ + 

See if the user wants batch mode or interactive. 

IF NOT (ODD (CLISPRESENT ("INTERACTIVE'))) THEN 

{ + 

At this point, the user has specified /NOINTERACTIVE and 
wants @ quick, automatic tuneup for his file. 

BEGIN 


TAKE -DEFAULTS := TRUE; 
AUTO o~ alune := TRUE: 
JOUR RAL »ENABL := FALSE; 
QTABLEDF RETURN) DEFAULT_OK := TRUE; 
IDATALEDF $R_RESPONSES) := EDF $K_AUTO; 
IDATALEDF$K raRST SER era := EDFSK"OPTIMIZE_FDL; 
TABEEDE SK CURR FUNCTION].DEFAULT  := EDFSK~QUIT; 
OTABLEDF $K~DESIGN_CYCLEJ.DEFAULT := EDFSK-FINIS; 
VIDEO TERMINAL := FALSE; 
C_CRT := FALSE: 
ANST_CRT := FALSE: 
GIS := FALSE; 
END { IF TRUE NOT (ODD (CLISPRESENT ("INTERACTIVE'))) > 
ELSE 
BEGIN 


VAX-11 Pascal HF -277 rage 
DISKSVMSMASTER: LEDF .SRCJEDFMAIN.PAS;1 (4) 


{ + 
Do initialization on the borninat. ot its speed, setup exit handler, 


Also check to make sure that in 2 

input is a terminal (and STOPs if not) and if the terminal isn't 
then it sets the page length to 16 

(as required by hardcopy surface plots). 


ecetl oe. Epr STEAn. SETUP Must come BEFORE ANY calls to the 
SCREEN P ACKAGE!! 


- } 
TERMINAL_SPEED := EDFSTERM_SETUP; 


{ ¢ 
EDF STERM_SETUP returns a status of EDFS_DEVCLASS if SYSSINPUT is 
In that case, see if thé magic logical name 


a scope, 


al. 
oF Bet ciparee INPUT is defined. If so, then set the terminal speed 


LLL LO LO LOLOL LL LL Ln OO gL Oe OO OO OO LLL Oe an 
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Source Listing $7360 1 382 93:95:35 DLSKSVMSMASTER, CEDF -SRCJEDFMAIN. PAS: 1 %) 
to be 2400 baud and continue, if the logical is not defined, 
oxtt with the pee ASS status. 
NOTE THAT LOGICAL NAME “‘EDFSSPLAYBACK_INPUT’’ IS NOT SUPPORTED 
FOR CUSTOMERS AND IS USED INTERNALLY ONLY FOR REGRESSION TESTING!!! 
IF LIBSMATCH COND (TERMINAL_SPEED,EDFS_DEVCLASS) THEN 
BEGIN 

TEMP_STATUS := STRNLOG (‘EDFSSPLAYBACK_INPUT',,TEMP_STRING255); 

IF LIBSMATCH_COND (TEMP_STATUS,SS$_NOTRAN) THEN 

LIBSSTOP (EDFS_DEVCLASS,0,0,0) 
ELSE IF LIBSMATCH_COND (TEMP_STATUS,SS$_NORMAL) THEN 


TERMINAL_SPEED := TT$C_BAUD_2400; 


{ + 
Set up “C ast routine. 


EDFSCTRLCAST; 


{ + 
First find out what termina! characteristics we have. 
LIBSSCREEN_INFO ( 


{ + 
Instead of using the actual terminal type, 
we, tt just test on deccrt or not. 
VIDEO_ TERMINAL = SCREEN_FLAGS.SCRSV_SCREEN; 
DEC_CRT := SCREEN_FLAGS.SCRSV_DECCRT; 
ANST_CRT := SCREEN-FLAGS.SCRSV~ANSICRT; 
REGIS := SCREEN_FLAGS.SCRSV_REGIS; 
{ + 
+ 9 | if we have enough room on the terminal. 
1 IF (¢ 
13 ob me wien < MINIMUM_TERM_WIDTH) 
15 (VIDEO_TERMINAL AND (LINES_PER_PAGE < MINIMUM_ViDEO_PAGE)) 
p 1g ) THEN 
1 
18 { + 
8 1 Not enough room! 
20 -) 
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LIBSSIGNAL (EDF$_SMALLPAGE,2,LINE_WIDTH,LINES_PER_PAGE) ; 


OPEN 
REWRITE (OUTPUTS; 


{ + 
Open the journal } 


il 
TE THAT THE LOGICAL NAME ‘EDF 


e, if it's re 


(OUTPUT ,SYSSOUTPUT_NAME ,NEW,RECORD_LENGTH := 2148); 


Testes: 
OURNAL_INPUT’ IS NOT SUPPORTED FOR 


CUSTOMERS, AND IS USED INTERNALLY ONLY FOR REGRESSION TESTING. 


TEMP_STATUS 
JOURNAL_ENABLED := ( 


:= STRNLOG ("EDF SSJOURNAL_INPUT', , JOURNAL _F ILENAME) ; 


(LIBSMATCH_COND (TEMP STATUS ,SS$_NORMAL)) 


IF JOURNAL_ENABLED THEN 


N 
(NOT LIBSMATCH COND (TEMP_STATUS,SS$_NOTRAN) ) 


:= JOURNAL FILE, 


BEGIN 
OPEN ( 
FILE_VARIABLE 
FILE-NAME := JOURNAL_FILENAME, 
HISTORY := NEW, 
RECORD_LENGTH := 255 
RECORD-TYPE := VARIABLE 
REWRITE ° (JOURNAL_FILE); 
END; 
END; 


{ IF FALSE (NOT ODD (CLISPRESENT (‘INTERACTIVE'))) > 


{ + 
If we don't have an ANSI terminal (VT100-series and up). then zero out the 


video attribute arrays. 
IF NOT DEC_CRT THEN 
BEGIN 
FOR | 
BEGIN 


:= 170 4 DO 


END; { IF NOT DEC_CRT > 


NULL_CHAR; 
NULL “CHAR; 
NULL CHAR; 
NULL “CHAR; 


NULL CHAR: 


Vd. 
:LE 


4-277 Pa 
DF ..SRCJEDFMAIN.PAS; 1 %) 
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{ + 
If we have more than 80 chars per Line, we may have to shift everything 
over to the right. (if we also have a video terminal) 


IF (LINE WIDTH > EDFSC_SHIFTPOINT) AND VIDEO_TERMINAL THEN 


BEGIN 
Shirts} TAB; 
SHIFT : 
SHIFTL4 
CRLF _SHIFTCS TAB; 
CRLF _SHIFTLS TAB; 
CRLF _SHIFTL6 3 
END; 


{ + 
The ‘under-graph' text comes out in graphics mode for Regis devices. 


hunnne 
eae 
oe 


398 IF REGIS THEN 
0399 
bear BEGIN 

0 LOW_SHIFTC1) := NULL_CHAR; 
0608 LOM-SHIF TES} ° NULL~ CHAR; 
06 LOW-SHIFT := NULL CHAR; 
of END { IF TRUE REGIS } 
8 ELSE 
04 BEGIN 
04 
04 LOW_SHIFTC1 t= SHIFTEQI: | 
04 LOW” SHIFT é := SHIFTC3); 
04 LOWSHIFT := SHIFTC4); 
o¢ END; { IF FALSE REGIS } 

{ + 

04 OK, so let the user know that we're here. 


CLEAR (SCREEN); 


{ + 

Initialize the TPARSE block. 
WITH PARAM_BLOCK DO 

BEGIN | 


TPASL_COUNT := TPASK_COUNTO; | 
TPASVABBREV = :=_‘ TRUE; 


END; { 00 > 
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13 { + 1 
9 \ Create an Ident Line_object and put it into the List. \ 
1 NEW_IDENT_LINE; 1 
1 & LINE | 1 
18 { + 1 
238 See what we have. | 1 
31 ANALYSIS SPECIFIED := ODD (CLISPRESENT ("ANALYSIS")); | 1 
5 § IF ANALYSIS_SPECIFIED THEN | 1; 
5 BEGIN 11 
05 $ | 11 
05 { + 1 
O 3 Saye the analysis filename. | 1 
0530 ANALYSIS_FILENAME_ DESC  := NULL_STRING; 1) 
09 1 CLISGET_VALUE ('ANALYSIS' ,ANALYSIS_FILENAME_DESC); 1 
Be : END; { IF ANALYSIS_SPECIFIED } \ 
0535 { + 11 
B2 $ Save the input filename. | iH 
$834 INPUT FILENAME DESC := NULL STRING; | 1 
he CLISGET_VALUE T'P1", INPUT_FITLENAME_DESC); | \ 
0541 { + | 11 
B26 Find out which output filename we're using, the /OUTPUT, or the 11 
Beez command parameter. q 
gece OUTPUT_F ILENAME_DESC = NULL STRING; ui 
ert 4 IF ODD (CLISPRESENT ("OUTPUT')) THEN b 
0549 BEGIN 11 
0550 11 
0551 { + 11 
0336 The /OUTPUT switch overrides, so use it if present. ft 
0354 CLISGET_VALUE (*OUTPUT* ,OUTPUT_F ILENAME_DESC); | 1 
5 END | 11 
2238 | 1 
558 ELSE 11 
559 1 
560 { + 1' 
rt The user just wants another version of the input file. } 
20 LIBSSCOPY_DXDX (INPUT_F ILENAME_DESC ,OUTPUT_F ILENAME_DESC); 1! 
565 { + 
5 The following qualifiers make sense only if we're in normal 
0368 interactive mode. 
569 IF ODD (CLISPRESENT (*INTERACTIVE’)) THEN 
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BEGIN 


{ + 
Set up the script to the one specified in the DCL command. (if any) 
IF ODD (CLISPRESENT("SCRIPT')) THEN 


BEGIN 
TEMP_DESCRIPTOR := NULL STRING; 
CLISGET_VALUE ('SCRIPT’, TEMP_DESCRIPTOR); 


{ + 
Case on the Ist letter. 
CASE TEMP_DESCRIPTOR.DSCSA_POINTER*(1) OF 


OQOCooooocoocoo00oo 


YEVSV SUSU SESE SETS ITU ISS 
SELISELSSSSELES FEES SOE 


‘A’ :  IDATACEDFSK_FIRST_SCRIPT] := EDFSK_ADD_KEY_FDL; 
"p* : IDATACEDFSK_FIRST_SCRIPT) := EDFSK_DELETE_KEY_FDL; 
‘I' :  IDATACEDFSK_FIRST_ SCRIPT := EDFSK_IDX_DESIGN_FDL; 
*S* :  IDATACEDFSK_FIRST_SCRIPTJ := EDFSK_SEQ_DESIGN_FDL; 
‘O" : IDATACEDFSK_FIRST_SCRIPTJ := EDFSK_OPTIMIZE_FDL; 
9 "R' :  IDATACEDFSK_FIRST_SCRIPTI := EDFSK_REL_DESIGN_FDL; 
vet 7 s IDATACEDFSK_FIRST_SCRIPT) := EDFSK_REDESIGN_FDL; 
Beng OTHERWISE 
0604 { + 
0605 If_the user blows it, give him nothing. 
060? IDATACEDF $K_FIRST_SCRIPT) := EDFSK_ZERO_SCRIPT; 
0609 END; { CASE } 
STRSFREE1_DX (TEMP_DESCRIPTOR); 
END { IF TRUE SCRIPT PRESENT } 


ELSE 
IDATACEDFSK_FIRST_SCRIPT] := EDFSK_ZERO_SCRIPT; 


ae tt ns 
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Find out how many keys the user wants. 
IF ODD (CLISPRESENT("NUMBER_KEYS*)) THEN 
BEGIN 
TEMP_DESCRIPTOR := NULL STRING; 
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7 CLISGET_VALUE CNSERIPT" . TEMP DERE IE TOR) 
§ ISTATUS T= OTS$CvT_TI : (TEMP_DESCRIPTOR 
TACEDFSK_NOMBER KEYS); 
QTABLEDFS$K_NUMBER_KEYS].DEFAULT := IDATACEDFSK_NUMBER_KEYS); 
1 NUMBER_KEYS_SET := TRUE; 
STRSFREE1_DX (TEMP_DESCRIPTOR); 
5 END; { IF TRUE SCRIPT PRESENT } 
{ + 
If the user soge ti ted a prompt level, set EDF's level to that, 
otherwise set it according to the type of terminal (hardcopy gets Brief). 
Osc? IF ODD (CLISPRESENT ("PROMPTING')) THEN 
bees BEGIN 
0644 
0645 { + 
oes Get the prompting level specified by the user. 
0648 TEMP_DESCRIPTOR He NULL STRING; 
4 CLISGET_VALUE (*PROMPTING -TEMP_DESCRIPTOR); 
best { + 
2036 The Ist character of the string is unique. 
pees CASE TEMP_DESCRIPTOR.DSCSA_POINTER“(1) OF 
0687 irted avenstt 
rief pr n 
0658 ° prompting 
0659 ‘B’ : 
bees FULL_PROMPT := FALSE; 
aes Tiga 
u romptin 
0665 — 
og? : 
FULL_PROMPT := TRUE; 
0 OTHERWISE 
71 
7 { + 
7 Automatic prompting. 
rR Default to Brief prompting for non-scope (or slow) terminals. 
Be76 IF ( VIDEO_TERMINAL 
78 ( TERMINAL_SPEED >= TT$C_BAUD_2400 ) ) THEN 


FULL_PROMPT := TRUE 
ELSE 
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FULL_PROMPT := FALSE; | 
END; { CASE } | 


STRSFREE1_DX (TEMP_DESCRIPTOR); 
END { IF TRUE (ODD) > 
ELSE 
BEGIN 


| 
{ + 
Default to Brief prompting for non-scope (or slow) terminals. 
IF VIDEO_TERMINAL AND (TERMINAL_SPEED >= TTS$C_BAUD_2400) THEN 


a a tt td st 9 4 4 ts tt 


QTABCEDF $K_SURFACE_OPTION].DEFAULT := IDATACEDFSK_SURFACE_OPTION); 
END; € IF ODD (CLISPRESENT ("DISPLAY")) } 
IF ODD (CLISPRESENT ("RESPONSES*)) THEN 
BEGIN 
CLISGET_VALUE (*RESPONSES* , TEMP_DESCRIPTOR); 
CASE TEMP_DESCRIPTOR.DSCSA_POINTER*(1) OF 


Mew 
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fo 
i=) 


94 
sp 
on FULL_PROMPT := TRUE 
708 ELSE | 
0704 
705 FULL_PROMPT := FALSE; 
O70? END; IF FALSE (ODD) > 
9709 IF ODD (CLISPRESENT ("DISPLAY')) THEN | 
ori] BEGIN | | 
it CLISGET_VALUE ("DISPLAY', TEMP_DESCRIPTOR); | | 
ris CASE TEMP_DESCRIPTOR.DSCSA_POINTER*L1) OF | | 
o719 kt = IDATACEDESK. SURFACE OPTION] := EDESK LINE, SURFACE; | 
0718 "F* : IDATACEDFSK-SURFACE-OPTION) := EDFSK~FILL SURFACE; : 
19 ‘a’ IDATACEDFSK-~SURFACE-OPTION] := EDFSK-ADDED. SURFACE; 
0 ‘|! IDATACEDF $K~ SURF ACE OPT = EDFSK~INIT_ SURFACE; | 
i "R' :  IDATACEDFSK-SURFACE-OPTION) := EDF$K~SIZE~SURFACE;: 
0728 "K' :  IDATACEDFSKTSURFACE~OPTION] := EDFSK-KEY SURFACE; 
4 OTHERWISE 
6 { NULL-STATEMENT } ; | 
8 END; { CASE } 
| 
| 
| 
| 
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Source Listing “}en-1944 oy: ¢6: 33 
AY: IDATALEDFSKCRESPONSESD f= EDFSKCAANS: 
OTHERWISE 
{ NULL-STATEMENT ) ; 
END; { CASE } 
END; { IF ODD (CLISPRESENT ("RESPONSES')) } 
NO_ INPUT := ODD (CLISPRESENT (*CREATE')); 
AUTG_TUNE := FALSE; 
END { IF TRUE ODD (CLISPRESENT ("INTERACTIVE')) } 
ELSE 
BEGIN 


{ + 
We don't want shifting or centering if we're nointeractive. 


FOR I := 1 10 4 DO 


BEGIN 
SHIFTCI) L_CHAR; 
CRLF _SHIFTCI+2) := = NULL “CHAR; 
END; 
FOR I := 170 3 DO 
LOW_SHIFTCIJ := NULL_CHAR; 
END; 
IF ODD (CLISPRESENT ("GRANULARITY')) THEN 
BEGIN 


CLISGET_VALUE ("GRANULARITY , TEMP_DESCRIPTOR); 
CASE TEMP_DESCRIPTOR.DSCSA_POINTER*C1) OF 


‘O',"1" : IDATACEDFSK_GRANULARITY) := EDFSK_ONE; 

12°"; IDATALEDF$K~ GRANULARITY] := EDFSK~TwO; 

a IDATA EDF SK_GRANULARITY := EDFSK-THREE; 
*F',*4* :  IDATACEDFSK"GRANULARITY] := EDFSK~FOUR; 

'D’’: IDATACEDFSK~GRANULARITY) := EDFSK~DOUBLE; 

'T’ ; IF TEMP_DESCRIPTOR.DSCSA_POINTER*(2) = 'H' THEN 


IDATACEDFSK_GRANULARITY) := EDFSK_THREE 
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ELSE 
IDATACEDFSK_GRANULARITY] := EDFSK_TWO; 
OTHERWISE 
{ NULL=STATEMENT ) ; 

END; { CASE } 
END { IF ODD (CLISPRESENT ('GRANULARITY')) } 
ELSE 

IDATACEDF $K_GRANULARI TY] := EDFSK_THREE; 
IF ODD (CLISPRESENT ("EMPHASIS')) THEN 
BEGIN 

CLISGET_VALUE ("EMPHASIS',TEMP_DESCRIPTOR); 

CASE TEMP_DESCRIPTOR.DSCSA_POINTER*(C1) OF 


"Ff"; IDATACEDFS$K_BUCKET_WEIGHT] := EDFSK_FLATTER_FILES; 
"S' ; IDATACEDFSK-~BUCKET-WEIGHT] := EDFSK~SMALLER BUFFERS; 
OTHERWISE 


{ NULL=STATEMENT } ; 
END; { CASE > 
QTABCEDFSK_BUCKET_WEIGHT].DEFAULT := IDATACEDFSK_BUCKET_WEIGHTJ; 
END { IF ODD (CLISPRESENT ("EMPHASIS')) } 
ELSE 
IDATACEDF $K_BUCKET_WEIGHT) := EDFSK_FLATTER_FILES; 


LT FILENAME _D = NULL prpenss 
IR (DEF AULT_ FILENAME _vESC,' -FOL") 


DESC := NULL STRING; 
TM (NL_DEV_DESC,"NL:"); 


z “eo 
— =m 
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4 
Set the main loop variable to true so we can execute the main cycle. 


EDITING := TRUE; 
€ INIT_EDITOR } 


igcbeeclaRe OL Ga85 YMC Aeaseth 


V2.4-277 Pa 17 
‘FEDF SRCIEDFMAIN. PAS: 1 %) 


<m 


11 
4 = 3 $ om e = 7 
Source Listing ig-ben- 1984 94:45:35 DIKSUNGaASTER FEOF <sacJEDFMAIN.PAS; 1°77) bey 


{ +4 

INPUT _FDL_FILE == Uses FDLSPARSE to read the user's input FDL file. 
This routine parses the input file using FDLSPARSE. 

CALLING SEQUENCE: 

INPUT _FDL_FILE; 

INPUT PARAMETERS: 

none 

IMPLICIT INPUTS: | 
none | 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: | 
The Definition Linked List 

ROUTINES CALLED: 
FDL SPARSE | 
ROUTINE VALUE: | 
cr 
SIGNALS: | 
SIDE EFFECTS: 

= 
-- } | 


Paceseecessnece 


EB 000 i a ierdeoctage O:g2:54 
PROCEDURE INPUT_FDL_FILE; 


BEGIN 


AKSMSMASTER CEDF-SRCIEDFMAIN.PAS:1°%5) 


{ + 
Set up the condition handler for the disk. 
ESTABLISH (RMS_INPUT_COND_HANDLER) ; 


+ 
tell the user what we're doing. 
IF NOT AUTO_TUNE THEN 
WRITELN (SHIFT, TAB, TAB, Parsing Definition File’); 


{ + 
Make sure edfSline_parsed gets the non-analysis stuff. 
ANALYSIS_ONLY := FALSE; 


cert Bn at 
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{ + 
Turn on the se ay c Siepe bit to make FOLSPARSE call us. 
Also, turn on the S$ it to make FDOLSPARSE signal errors to us. 


FLAGS. FDLSV_SCALLBACK := TRUE; 

FLAGS.FDLSV_SIGNAL := TRUE; 

{+ 

Parse the input file to get the old definition. 

If the input file doesn't exist, this will signal up to the main Loop. 
ISTATUS := FDOLSPARSE ( 


SSSSSSOSOSHSBSGSSSSGOOBOLSSLLSOLDL 


Wwr—o0o MPN 
zs 


INPUT FILENAME _DESC, 
FAB_DOMMY, 


al 


IF ¢ 
D CISTATUS)) 


(NOT AUTO_TUNE) 
) THEN 


WRITELN (SHIFT,TAB, TAB, "Definition Parse Complete’); 
END; { INPUT_FDL_FILE } 


am 


iy 
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{ +4 
INPUT_ANALYSIS_FILE == Read in the analysis file if specified. 
This routine parses the user's analysis file if he has specified one. 
CALLING SEQUENCE: 
INPUT_ANALYSIS_ FILE; 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


3 The Analysis Linked List 
a ROUTINES CALLED: 

7 FDLSPARSE 

Le ROUTINE VALUE: 

5 none 

78 

79 SIGNALS: 


fo] ) 
wr 


SIDE EFFECTS: 
none 
--) 
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CGLOBAL] PROCEDURE INPUT_ANALYSIS_FILE; 
BEGIN 


{ + 

Only do this if the user wants to. 

IF EDITING AND ANALYSIS_SPECIFIED THEN 
BEGIN 


{ + 
Set up the condition handler for the disk. 
ESTABLISH (RMS_INPUT_COND_HANDLER) ; 


hoy tell the user what we're doing. 
IF NOT AUTO_TUNE THEN 
WRITELN (SHIFT,'Parsing Analysis File"); 
hake sure edf$line_parsed gets only the analysis stuff. 
AIRE AF cRaklesngs ME 


{ + 
Create an Ident lLine_object and put it into the List. 
NEW_IDENT_LINE; 


{ + 
Turn on the SCALLBACK flags bit to make FOLSPARSE call us. 


VAX-11 Pascal 
DISKSVMSMASTER 
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Also. turn on the SIGNAL bit to make FDLSPARSE signal errors to us. 


FLAGS .FDL$V_SCALLBACK := TRUE; 
FLAGS.FOLSV_SIGNAL := TRUE; 


{ + 
Parse the analysis file to get the analysis sections. 
If_it doesn't exist, this will signal up to the main loop. 


e} 
ISTATUS := FDLSPARSE ( 
Oe VS ASF SLEMARE DESC, 


D ° 
RAB” DUMMY , 
FLAGS 
ANALYSIS_ONLY _:= FALSE; 
POINT_AT_DEF INITION; 
IF ¢ 
(ODD (ISTATUS)) 


| 
TT 
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AND 
(NOT AUTO, TUNE) 


THEN 
WRITELN (SHIFT,‘Analysis Parse Complete',CRLF); 
{ IF EDITING AND ANALYSIS_SPECIFIED } 
{ INPUT_ANALYSIS_FILE } 
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{ +4 


My ve lb lee -- Get ready to ask the user if he wants to continue after 
an input parse error. 


CALLING SEQUENCE: 
SETUP _CONTINUE; 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINES CALLED: 
CLEAR 

ROUTINE VALUE: 
none 

SIGNALS: 

none 

SIDE EFFECTS: 
none 

e- } 


jae 
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} PROCEDURE SETUP_CONTINUE; 

11 BEGIN 

1101 

11 ¢ { + 

i Set up the control/Z handler in case the user types “2. 

1192 ESTABLISH (CTRLZ_COND_HANDLER); 

1197 CLEAR (PAUSE); 

1109 END; { SETUP_CONTINUE } 


os La 
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{ ++ 
DISPATCH_FUNCTION == Branch off to the selected function. 


This routine is just a big CASE statement to execute the operation the 
user wants. 


CALLING SEQUENCE: 
DISPATCH FUNCTION 
INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 


IDATACEDFSK_FIRST SCRIPT) 
IDATACEDF $K_ CURRENT _FUNCTION 


OUTPUT PARAMETERS: 
rrone 
IMPLICIT OUTPUTS: 


EDITING 
IDATACEDFSK_SCRIPT_OPTION) 
ROUTINES CALLED: 
ADD_FDL_LINE 
DELETE_FDL_LINE 
CREATE _NEW_FDL 
HELP_ PROC 
MODIFY _FDL_LINE 
INVOKE” SCRIPT 
VIEW_DEF 

ROUTINE VALUE: 
none 


SIGNALS: 


PPA E EEE EEE EE 


w Se 


SIDE EFFECTS: 
none 
--) 
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PROCEDURE DISPATCH_FUNCTION; | 

BEGIN | 

4 

Set up the control/Z handler and reinitialize some flags. | 
ESTABLISH (CTRLZ_COND_HANDLER) ; 

If NOT AUTO_TUNE THEN | 

CLOSE (FDL_DEST,ERROR := CONTINUE); | 

POINT AT DEFINITION; | 


Dest als TER := TRUE; 
OPTIMIZING = FALSE; 
VISIBLE QUESTION = FALSE; 
TEMP_ Fuct = FALSE; 
TAKE FAULTS = AUTO_TUNE; 
{ + 


Ask the user only if he hadn't requested one from DCL. 
IF IDATACEDFSK_FIRST_SCRIPT] = EDFSK_ZERO_SCRIPT THEN 
BEGIN 


QUERY (EDFSK_CURRENT_FUNCTION); 
CASE IDATACEDFSK_CURRENT_FUNCTION) OF 
DFSK_ADD : ADD_FDL_LINE; { Add a new Line_object to the list. } 


a a a tn a at 2 as — 9 Ls — — ts a td so ts —) as 49 as Ss as 9 as 9 9 4 
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E 

EDFSK-DELETE : DELETE FOL_LINE; { Remove a line_object from the list. } 
EDFSK_HELP : HEL Prompt for help and process it. 
EDFSK-INVOKE : INVORE SCRIPT; C Ask @ bunch of related questions. } 
EDFSK_MODIFY : MODIFY _FDOL_LINE; { Edit an extant Line_object. 

EDFSK-QUIT : EDITING := "FALSE; Sipe out! ALL bets are off! } 
EDFSK-SET : SET PROC; { Se Set the editor characteristics. } 
EDFSK_VIEW : VIEQ_DEF thy the user the definition. } 
EDFSK_EXIT 

BEGIN 


{ + 
Stop the editing loop and output the new FDL file. 


ED ITING := FALSE; a 
CREATE _NEW FDL; 


me ee ee ee me cee a ee ee ce ce me ce ce a ee ee a ee a ee a a ed 2d od od od od 3 < 


{ + 
Get the user's top-level function and dispatch on it. 
i 
| 
| 
| 
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' 13 OTHERWISE 

i Q { NULL=STATEMENT } ; 

| g END; { CASE } 

i : END { IF TRUE IDATACEDFSK_FIRST_SCRIPT) = EDFSK_ZERO_SCRIPT } 

1226 ELSE 
lee? 

1228 BEGIN 

1229 

1230 { + 

' 1 ~ user wants to do a script right off, do it. 

| ¢ IDATACEDF $K_SCRIPT_OPTION] := IDATACEDFSK_FIRST_SCRIPTI; 

1 1SAM_ORG := CIDATACEDF $k SCRIPT_OPTION] IN, : EDF$K_ADD_KEY_FDL, 

1 EDFSK_DELETE_KEY FOL, EDFS$K_IDX_DESIGN_FOL, 

i 3s EDF $K “REDESIGN “FBL,  EDESK sOPTIMIZE “FDL -: 

1 33 INVOKE _SCRIPT; 

1 41 END; { IF FALSE IDATACEDFSK_FIRST_SCRIPT] = EDFSK_ZERO_SCRIPT } 

1503 END; { DISPATCH_FUNCTION } 


F 12 
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1g sss : 

} ? H *ee THIS IS THE TOP LEVEL CODE IN THE UTILITY. #** H 

; 30 -- } 

1 

; § BEGIN 

1254 { + 

1255 Set up the editor, setup the exit and condition haniders, a control/C 
1 § AST routine, and get all the DCL Switch options. 

: Set EDITING to TRUE. 

; 33 INIT_EDITOR; 

1261 { + 

1 o¢ Read in the FDL file, and possibly an analysis file. 
i 6 ist clear the error flag. 

: 65 RMS_INPUT_ERROR := FALSE; 

: ef IF NOT NO_INPUT THEN 

1269 INPUT_FDL_FILE; 

157 C4 

127 If we had an error, pause to let the user read the messages, 
; ie, Stporwise. continue on. 

: o? IF EDITING AND RMS_INPUT_ERROR THEN 

: AA SETUP_CONTINUE 

: a4 ELSE IF NOT NO_INPUT THEN 

1 


81 LIBSWAIT (3.0); 


; 
22d 
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{ + 

This is the Main Loop. 

WHILE EDITING DO 

BEGIN 
DISPATCH_FUNCTION; 
IF MAIN_CTRLZ THEN 
BEGIN 


EDIT! NG = FALSE; 
CREATE _NEW FDL; 


END; 
END; { WHILE EDITING } 


{ + 
Close the journal file if we had one. 
; IF JCURNAL_ENABLED THEN 
CLOSE (JOURNAL_FILE); 


{ EDF UTILITY. > 


{ + 
Stop the editing loop and output the new FDL file. 
END. 


22 
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TITLE EDF 
-IDENT \V04-000\ 
00000 -PSECT S$CODE,PIC,CON,REL,LCL,SHR,EXE,RD,NOWRT,2 | 
45 56 49 54 43 41 45 54 4E & 0 C.AAA: .ASCII \INTERACTIVE\<0> 
St 4B rf 4) 23 59 41 4C 30 é 4 46 4 3 oC C.AAB: .ASCII \EDFSSPLAYBACK_INPUT\<0> | 
49 SF 4C 41 4E 52 5S GF GA 26 4 46 44 43 8 9 C.AAC: .ASCII \EDFSSJOURNAL_INPUT\<0><0> 
33 49 3 g 4c 41 4 ri 8 4 C.AAD: .ASCII \ANALYSIS\ 
49 9 4C 41 4f 41 0 C C.AAE: .ASCII \ANALYS1S\ | 
0 50 4 C.AAF+ .ASCII \P1\<0><0> 
0 54 5 4 3 iF 0048 C.AAG: .ASCII \OUTPUT\<0><0> 
0 4 4 4F 9990 C.AAH: . ASCII \OUTPUT\<0 
00 45 56 49 54 43 41 3 45 54 GE 4 9 58 C.AAI: .ASCII \INTERACTIVE\<0> 
00 54 49 g 4 3 064 C.AAJ: .ASCII \SCRIPT\<0><0> 
99 4 50 49 4 006¢ C.AAK: ASCII \SCRIPT\<0><0> 
00 53 59 45 4B SF 52 45 4 4p 5 sf 074 ¢ AAL: .ASCII ER KE \<0> 
00 00 54 30 49 5 3 0080 C.AAM: “ASCH \SCRIPTY<0><0> 
00 00 00 47 4& 49 54 4D 4F 0 0088 C.AAN: .ASCII \PROMPTING\<0><0><0> 
00 00 00 47 4E 49 54 50 4D 4F 50 00094 C.AAO: .ASCII \PROMPTING\<0><0><0> 
00 59 41 4 20 49 44 OOAO C.AAP: .ASCII \DISPLAY\<0> 
09 39 41 4C § 49 44 OOA8 C.AAQ: . ASCII \DISPLAY\<0> 
00 00 00 33 4 ; 4E 4F 50 45 5 00BO C.AA “ASCII \RESPONSES\<0><0><0> 
00 00 00 53 45 § 4f 4F 50 53 45 5§ 90B¢ C.AAS: .ASCII \RESPONSES\<0><0><0> 
00 45 54 41 45 52 4 QOOCS C.AAT: .ASCII \CREATE\<0><0> 
00 59 54 49 41 4C 33 4E 41 3 47 90000 wAAU: ASCII \GRANULARITY\<0> 
00 59 54 49 52 41 4¢ 55 4E 41 47 d00¢ wAAV: ASCII \GRANULARITY\<0> 
53 49 53 41 4 20 4D 43 QOOES C.AAW: ASCII \EMPHASIS\ 
53 49 53 41 48 50 4D 4 OOOFO C.AAX: ASCII \EMPHASIS\ 
4C 44 46 2€ 0008 8 wAAY: .ASCII \.FDLN 
99 3A 4C 4e OOFC C.AAZ: ASCII \NL:\<0> 
69 6& 69 66 65 44 20 67 GE $9 2 61 5 0100 C. ASCII \Parsing Definition File\<0> 
00 65 6C 6&9 46 20 6f 6F 69 74 0106 
72 61 50 20 6E 6F 69 74 69 6E 69 66 65 44 0118 C.ABB: .ASCII Definition Parse Complete\<0><0><0> 
00 00 65 74 65 6C 70 6D 6F 4 ‘ 65 73 0146 
79 6C 61 6€ 41 20 67 6€ 69 7 $1 50 0134 C.ABC: .ASCII \Parsing Analysis File\<0><0><0> 
99 65 $¢ $9 46 20 73 69 0142 
65 73 72 61 50 69 9 6C 61 6f 41 0014C C.ABD: .ASCII \Analysis Parse Complete\<0> 
65 74 65 6C 70 6D 6F 43 20 0015A 
00000000 §0008000 0000000 99000000 90000067 90164 C.ABE: .LONG *X67,0,0,0,0,0,0,0 
0000000 000000 0000000 0178 
0000 00000 EDF .WORD “M<> : 0001 
OOv AF 00 =FB 00 CALLS #0,INIT_EDITOR : 1259 
000000006 EF 94 0 CLRB RMS _INPOT ERROR > 1265 
00v 0G EF 0 €0 0000C BBS »NO_INPOT,2$ + 1267 
v CF FB 0014 CALLS #0, INPUT FDL FILE + 1269 
dov G EF E O19 2$: BBC #0, EDITING, 5$ : 1275 
V G EF E1 1 BBC #0,RMS_INPUT_ERROR,5S$ 
v CF ’ Fe 029 CALLS ’ gSETOP_CONTINUE : 1277 
00v000000006_ EF E0 6 b 5$: BBS ’ INPUT, 12$ : 1279 
oooooo0ng er ON OM OPE atid a Pideualt a toe 
Ov if ira: BRB 12$ > 1286 
| 


; Routine Size: 130 bytes, 
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00000 oes 
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000000006 
000000006 


000000006 


000000006 


CF 


EF 
000000006 EF 

EF 

EF 
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; 000000006 i 
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Base: SCODE + 00184 


SE 

oF 010E0008 

AD E 
Fa 


000000006 
000001046 


OPS BM MNOOS BM MOO OON BN MOO WV HH PUI BO OOM Me 
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® 
oo 
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F 
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000: 

003¢ 0000 
C2 0000 
000 
0000 

E 00016 
9F 00018 
a Bs 
50 0028 
90 0002F 
94 00056 
90 0003 
D4 0004 
DO 00049 
sts 
34 0003¢ 
94 00064 
Hiss 
i Oo0re 
FB 0007 
o Hise 
oF 008 
te 
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o 
SSSSSs 
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m 
SSRs 


nm 
wo 
So 
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VAX-11 Pascal V 


#0. DISPATCH FUNCTION 
#0, MAIN_CTREZ,12$ 
EDITING 

#0, CREATE NEW_FOL 
#0,EDITING,9$ 

#0, JOURNAL ENABLED, 15$ 
J URNAL FICE 
#1,PASSCLOSE2 

#1,R0 


“M<R2,R3,R4,R5> 
# 694731 .-BCFP) 
11,C.AAA,-20(FP) 
- O(FB) =A cFP) 
#1, CLISPRESENT 


#1. TAKE_DEFAULTS 
#1LA U 


#1,QTAB+780 
VIDEO_ TERMINAL 
DEC_CRT 
ANST_CRT 

REGIS 


17$ 

#0, EDF STERM_SETUP 
TERM NAL_SPEED 

#11763724 

TERMINAL_SPEED 

# oLIGSAATCH_COND 


’ 
#17694975 ,-8(FP) 
T 77 ena 55,~-4(FP) 


P 
#17694739.-16(FP) 
-12¢FP) 


~16(FP) 
#6, SYSSTRNLOG 
RO, IEMP_STATUS 


¥ 
TEMP Status 
#2, LTBSMATCH_COND 


teseeee fage 
DISKSVMSMASTER:LEDF .SRCJEDFMAIN.PAS; 1 7) 


ro 
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1313 


0273 
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1 * V2.4-277 Pa 
1g-ep-1984 93:85:23 DESkSUmSMASTER: EEDF SRCJEDFMAIN. PAS; 1 017) 
Generated Code . : eLec RO.5$ : 0277 
£9 , 
v PUSHL # 
‘ .) os 
DD 200F #11763724 | 
ooassooc BF bb O00 PUre = #4 L1BSSTOP | 
F ay Se Rove RB 9S ; 0279 
000000006 a Ov b 0 S$: USHAL Fhe STAT 
0000 ; SHAB 
00000006 FF oF 13 CALLS. "LBSRATCH COND git 
000000006 FF s ff 1, Lec ROSS pHINAL SPEED $8) 
0900006 EF 88 FB O0lze 98: CALLS Me DFSCTALCAST 
soe " pongopege BF Sr goieB BURR IM oU0tR 
aie Be Sr ah yi 
ee be FB Doles ROVE SCREEN, FLAGS. DIDEQ._ TERMINAL z 0308 
00000006 Et cocoo00ds 6 EF 00155 EXTIV 86.81 SCREEN , ; 0306 
COOCDCOTS EF nonce 0 EN_FLAGS,R ; 
“ pr 000000006 fF PRIS Ble TRL Fe prscs.o i 
50 000000006 EF 000000006 EF 9 90 $f EXTZV rH STREEN_FLA us Fiead 
0 000000006 FF so0000006 EF 56 50 is CRPL —LINE-WIDTH,MINIMUM_TERM_WID 
00000006 EF 000000006 EF pI 00185 LM) jp * tate pemiearitag 
00000006 EF 00 £1 00192 CRPL LINES PER PAGE MINIMUM. VIDEO_PAGE te 
Ovo 1 20 
900000006 EF 000000006 60v if yams, foun espe 
G EF NE 
Gooooos fF bp 5 RisMt Ame 
ease OE ie CALLS s4fesstou : 0323 
000000006 EF  O oD 3 48: PUSHL 
( DD ee PUSHAB Sara 
000000006 FF 9F ooICc PUSHL #11 
> ® PUSHL #1 
Bette PUSHAB PASSEY OUTPUT 
Seseccees te ite BUSHAB PASStY. OUTPUT : 0324 
sensesess 000000006 ’ +4 rs CALLS a PASSREURITE2 ; 0331 
000000006 EF oD i PUSH 
D 
F Rov ~8(FP) 
F8 AD Q1OEQOFF BF 06 £6 HOVE Wi7694975, BEB wn it 
FC AD b00000006 EF 9E OOF PUSHAB =8(FP) | 
ola fr MOVE” #17696738,-16¢FPD | 
FO AD 010E0012 BF i : vie AAC EE Tty | 
Fo AD FFFFFBEF EF 9 00815 as ps | 
ee eh ee cs 
G £ TEMP _ 
booooo00g EF dO 00ce | 
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9 PUSHAL #1577 ; 0333) 
000000006 EF H000060c rte ! "LTQSRATCH_COND | 


* gopgeens 


"Core 
ov 
> 
= 
wn 


¢ e 
TEMP STATUS 
ts LIBSMATCH COND 


8F 
if 
F 4 
000000006 EF ; FB Pr att 
000000006 EF 0 c BICB 5-RO, JOURNAL ENABLED 
§ov000000006 EF ee 2 BBC #0 JOURNAL _ENABLED , 16$ 3 0339 
C DD 0 6 PUSHL # ‘ + 0343 
QOOOOOFF 8F DD 0026 PUSHL He 5 
7 DD D PUSHL # 
00000006 : OF ‘ PUSHAB rf RNAL_F ILENAME 
ittditds br DD 00277 PUSHL @# ¥3 ’ 
1 +4 0270 PUSHL e 
000000006 Fe F O027F PUSHAB JOURNAL FIL 
000000006 EF 8 FB 00285 CALLS #8,PASSOPEN 
000000006 FF 9F 0028 PUSHAB JOURNAL FILE : 0350 
000000006 EF 1 FB 0 9 ‘ak CALLS #1,PASSREWRITE2 
00v000000006_ EF 0 €0 00299 193: BBS #0, DEC_CRT,20$ : 0360 
0 1 00 002A1 MOVL #1.RO + 0364 
C 0 DO 002A4 19$:  MOVL RO.I 
FFFFFFFFGEF4C 000000006 EF 9 0 A? MOVE NULL CHAR. ANSI RESET-1C1] F 0368 
FEFFFFFFGEF4C 99000006 Te B3 MOVB §-NULL~CHAR.ANSI~BOLD-1LI : 9 9 
FFFFFFFFGEF4C 000000006 EF 90 O02BF MOVB NULL CHAR. ANSI “UNDERSCOR -1C1) + 0370 
FFFFFFFFGEF4C 00000000G EF 90 00 cB MOVB = NULL CHAR. ANSI BLINK=1L1 : 0371 
wd FFFFFFFFGEF GC 00000006 FF 99 9 v7 HOVE NULL CHAR. ANSI -REVERSE~1L1) + 0372 
000000006 EF 64 8F 07 aby FD 0 E7 20S: CMP ZV A #7. #*X64,LINE_WIDTH : 0382 
00v000000006 EF o- gi O2F3 BBC #0, VIDEO TERMINAL 238 
000000016 EF 9000 006 EF O2FB MOVB _—sCiTAB, SHIFT + > 0386 
G EF 000000006 EF 90 00306 MOVB TAB. SHIFT #g : 0387 
G EF 000000006 EF 90 00311 MOVB == TAB, SHIFT+ : 0388 
00000036 EF 90006 EF 90 00 6 MOVB ‘TAB, CRLF_SHIFT+3 : 0389 
4G COEF G EF 30 0 MOVB TAB, CRLF-SHIFT+4 : 0390 
5G EF G FF 90 00332 MOVB ~=*‘TAB CRLE-SHIFT+5 : 0391 
oove 0G EF 0 fi 0 D 23$: BBC #0,REGIS~25 : 0398 
G EF 9 00006 EF 90 00 MOVB NULL_CHAR,LOW_SHIFT : 040¢ 
1G EF 9 90006 EF 30 50 MOVB NULL~CHAR.LOW"SHIFT#1 + 040 
26 EF 000000006 FF 70 5 move NULL CHAR, LOW_SHIFT#2 + 0404 
EF 1G EF 25$: MOVB SHIFT+1,LOW_SHIFT : 0412 
G EF G EF 3 MOVB SHIFT#¢.LOW SHIFT +I > 041 
G EF G EF MOVB SHIFT+3,LOWTSHIFT+2 > 0414 
0 F ODF 26$:  PUSHAL #3 + 0421 
900000006 EF Ba. CALLS #1, CLEAR 
00G EF 8 OD MOVL #8, PARAM BLOCK F 30 
000000006 EF 01 1 Pe. INSV #1.#33,#T,PARAM_BLOCK > 0431 
G EF H MOV FDLSAL_BLOCK,R ; 0440 
000000006 EF 6 €F ¢ ADDL3 FDLSAL~SLOCK.RO.FDL_BLOCK 
G EF pO MOVL FDL BLO > 0446 
A G EF MOVAB EDFSLINE PARSED,4(RO) 
900001 G EF 1 p MOVL #1. IDATAT G0 > 0451 
O11G EF 1 MOVE #1.BDATA+ > 0452 
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EDF 19-Se “19 VAX-11 Pascal V2.4-277 Pa 35| 
ot -000 Generated Code S60 1984 9}: 5; 33 DISKSVMSMASTER: Fe bF SRCIEDFMAIN.PAS: 1 77) 
FO AD FFFFF7E7 EF : 08 35 moves f gogAnr- c1gcee) 
FS AD F ¢ PUSHAB =-8(FP) ° 
000000006 EF ooneanet: 34 FE BF 4 6 grth ART att SEI YSIS SPECIFIED 
Bovgon9c009¢ ef 0 : 2 ¢ #0-ANALYS15, SPECIFIED toe : 523 
00000006 EF 0 0006 EF ?D 667 OVQ  NULL_STRING-ANALYSIS_F ILENAME_DESC + 0530 
9 G EF 9F 006 PUSHAB ANALESIS FILENAME _DESC + 0531 
FB AD E F y 44 vi #17694728,-8(FP) 
FO AD FFFFF7AD EF a MOVC3 “ C.AAE,-16(FP) 
FC AD FO AD : 6 vAB - b(EP) .=4CF PD 
00000006 EF 02 FB g CALLS 7e CLISGET VALUE 
00000006 EF 9000000 6 €F 70 0698 29$:  MOVG ==NULL_STRING, INPUT_F ILENAME_DESC : 0538 
00 6 G EF 9F 006A PUSHAB INPUT FILENAME DESC + 0539 
F8 AD O10E 09 F 06 06A9 MOVL a 7698728 -8(FP) 
F4 AD FFFFF EF 8 0681 MOVW C.AAF,<12¢FP) 
FC AD FL ADCO 0689 MOVAB -12(FP),-4(FP) 
F8 AD OF O06BE PUSHAB sg teP) 
00000006 EF 02 FB 006C1 CALLS #2,CLISGET_VALUE 
00000006 EF 900000006 sa. 06¢8 MOV NULL STRING, OUTPUT _F ILENAME_DESC : 0545 
F8 AD O10E0006 &F 0 06D MOVL #17694726,-8(FP) : 0547 
FO AD FFFFF7SE EF 06 ; 0608 MOVC3 #6,C.AAG,-16(FP) 
FC AD FO AD 9E OO6E4 MOVAB =16(FP),-4(FP) 
F8 AD 9F 006E9 PUSHAB abit 
000000006 F g} FB OOGEC CALLS # 1 .CLISPRESENT 
000000006 EF FF 006F6 PUSHAB eote T_FILENAME_DESC : 0554 
F8 AD 010E0006 8F 00 O06r¢ OVL #17694726,-8(FPY 
FO AD FFFFF73D_ EF 06 38 0704 MOVC3 #6,C.AAH,-16(FP) 
edsae FS AD OOF borse ROVAs 10180) ACEP D 
000000006 EF 02 re a9r1§ CALLS #2, CLISGET_VALUE 
000000006 EF 9F OO7iE 33$: | PUSHAB OUTPUT_FILENAME_DESC > 0563 
000000006 EF 9F 00724 PUSHAB IN mats NAME BESC 
000000006 EF 2 FB OO72A CALLS #2 ue scary DRDX , 
F8 AD O10E000B 8F 6 007 1 35$:  MOVL ai? i Petts 7 0569 
“. = hea A EC AD E bores a - sok aM 
Fa AD OOF ores PUSHAB -8(F ay 
000000006 f gi i a CALLS H. a 
1 00754 BRW 
F8 AD 010€0006 aie 0 8 MOVE aD Se: + 0576 | 
FO AD FFFFFOF6 EF 6 ; 75F MOVC3 #6,C.AAJ,-16(FP) | 
FC AD f AD 3 168 MOVAB cater. -4(FP) 
000000006 f gi i 779 CALLS #1..CL{SPRESENT 
B 0000000 Pat hy i th Bova NULL _STRING, TEMP_DESCRIPTOR ; 0580 
“8 08 AD 9F 007 PUSHAB TEMP DESCRIPTOR > 0581 
1 orm pee GBR aa ei 
: ° F4 AD ES AD 9E 0079 MOVAB “34tiP), <1 (FP) 
FO AD 9F 0079E PUSHAB -16(F 
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000000086 EF Bay 
000000086 EF te 
00000008G_ EF e 
000000086 EF 03" 
000000086 EF 03 
000000086 EF +e 
000000086 EF 07 
F8 = AD 
000000006 EF ae 
000000086 EF ; 
AD 010E0008 F 
E4 AD FFFFF62A_ EF B 
F4 =D E4 AD 
FO AD 
00000000G_ EF 9 
Ov 0 
FB = AD eaeeet | EF 
F AD 
fe AD 010€0006 or 
E8 AD FFFFF60 EF 6 
F4 = =AD ee AD 
F ry: 
000000006 _ EF 0 
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1:22:54 VAX-11 Pascal V2.4-277 Pa 36 
4:95:33 Heer eumsakS ten’ Feor sac JEDFMAIN.PAS:1° 717) 
CALLS #2,CLISGET_VALUE 
MOVZBL aTeMP DESCRIPTOR+4,RO : 0586 
CASEB RO #65, 
<DISPL 398 
‘DISPL & 
*DISPL 4 
<DISPL 40$ 
*DISPL 4 
*DISPL 4 
*DISPL 4 
*DISPL 4 
“DISPL 41$ 
“DISPL 40 
*DISPL 4 
*DISPL 4 
*DISPL 4 
-DISPL i 
“DISPL 43$ 
“DISPL 40 
“DISPL 40 
‘DISPL 44$ 
“DISPL 42s 
aneett 
CLRL IDATA+8 : 0588 
MOVL #1 ,IDATASB : 0590 
MOVL He, 1DATA+B : 0592 
we #4, IDATA+8 3; 0594 
MOVL #5 IDATA+8 : 0596 
MOVL #3 IDATA+8 : 0598 
MOVL Hs IDATA+8 : 0600 
MOVL #7, IDATA+8 : 0607 
PUSHAB TEMP DESCRIPTOR : 0611 
CALLS #1 ,STRSFREE1_DX 
MOVL #7, IDATA+8 ; 0617 
MOVL #17696731,~16( EP) > 0622 
MOVC3  #11,C.AAL.-28(FP) 
MOVAB ~eB(FB) .=f2 CFP) 
PUSHAB -16(FP) 
CALLS #1. CL ISPRESENT 
MOVG = NULL_STRING, TEMP_DESCRIPTOR : 0626 
PUSHAB TER DESCRIPTOR : 0627 
VL. #17694726,-16(FP) 
MOVC3 #6,C.AAM,-24(FP) 
VAB “4tiPD 1 
eae paect der vac 
PUSHAB toATA DED . : 0628 


z= 
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BR 
000000006 55$: ae FULL_PROMPT 
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Generated Code 338: oR oi §: 33 DISKSVMSMAST TER: eebe eh SRCJEDFMAIN.PAS; 1 te «oa 
F8 =AD OOF PUSHAB TEMP DESCRIPTOR 
9006 EF 9 F CALLS 4#2,0TSS$CVT_TI_L 
G EF D OVL R ISTATUS 
AcEG EF 000000F 06 FF MOVL  IDATA+240,QTAB+1230 : 9630 
000G EF 1 VB «#1, NUMBER_KEYS_SET : 0631 
F8 AD OOF PUSHAB TEA DESCRIPTOR + 0633 
000000006 EF 1 F CALLS #1,STRSFREE1_DX 
AD 010E0009 8F 08B4 52$:  MOVL. #17694729,-16(FP) 3 0641 
£4 AD FFFFFSBD EF 9 0 MOVCS) #9 C2 AAN,<28 (FP) 
F4 AD E64 AD 9E 00 MOVAB =28(FP),-12(FP) 
FO AD 9F 00 PUSHAB -16(F 
000000006 FF gi re 0 CALLS #1,CLISPRESENT 
Ov 0 5 BLBC =._- RO. 6 
FB AD 000000006 EF 7D 00 V NULL_ STRING, TEMP_DESCRIPTOR : 0648 
F8 AD 9F 00 PUSHAB TEMP DESCRIPTO + 0649 
FO AD O10E0009 =F 0 0 VL 17694729,-16(FP) 
£4 AD FFFFFS9B- EF 09 0 MOVC3 #9,C. 0°38 
F4 E4 AD 9E 00 VAB 28 (FP) ,-12 (FP) 
FO AD 9F 00 PUSHAB ‘i 
000000006 EF 02 FB 00 CALLS CLISGET_VALUE 
0 FC 9A 00 MOV ZBL seat DESCRIPTOR+4,RO + 0654 
04 42 8F $ CA #66, 44 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00000000G_ EF i PROMPT 


OoOnnoo—-O"OOr Fr FPOOCN 


0000v 


F 
FO 8 AD 61060007 or 
E8 AD FFFFFGF4 EF 
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B 
5 
0 
0 
0 
0 
0 
0Ov 11 
EF 94 
Oov 11 
Sov ft 
00v00000000G_ EF 00 €1 VIDEO_TERMINAL ,60$ 
0B 000000006 F » DI 9 TERMINAL “SPEED #11 
000000006 EF 01 90 00 #1,FULL_PROMPT 
00v 11 00 628 
000000006 EF 94 00 FULL_PROMPT 
F8 AD 9F 00 TEMP~DESCRIPT 
000000006 EF abv re 0 4) /STREFREET DX 
00v000000006 FF 0 €1 0 #0, VIDEO_TERMINAL ,66$ 
000000006 4 D4 TERMINAL SPEED, #114 
000000006 EF i #9 ° #1 ,FULL_PROMPT 
00000006 EF 94 
FO AD aitttditad br ; ni revGr2r 7,-16(FP) 
E8 AD FFFFFSIS EF 7 ; g =3ecEP ) 
FE AD £8 AD 3 - “ehh, =12(FP) 
000000006 EF QI F #1 CLI SPRESENT 
3 0 BLBS + 
AD OOF 
f Of 


? 
mitt ttce ited 
MOvCc3 C.AAQ,=24 (FP) 
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FO AD 010E0006 
AD FFFFF4O9 = EF 

F4 = AD ee 
; 00000000G_ EF 


E 0 FE 
000000006 
: 
FFF FFF FFGEFSC $4 44 $4 43 
00000001GEF4C 000000006 
E1 50 
: 
FFFFFFFFGEF4C 000000006 
ED 50 
FO AD 010E0008 
AD FFFFF3A8 EF 
F4 = =AD eS 
00000000G EF 
03 
F8 
FO AD 010E0008 
AD FFFFF38B- sOEF 
F4 AD eS 
000000006 gf 
0 FC 
23 31 
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-DISPL 


VAX-11 Pascal 
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$ 

DATA+260 

#1, IDATA+260 
86$ 


Con 
PD FWA OOOAQAO 


#17694726,-16(FP) 
a CAAT «=24 (FP) 
° ACEP) 1 (FP) 
#1, CLISPRESENT 


#*KFE,RO,NO_INPUT 
AUTO_ TUNE 
90$ 


#1,R0 
RO 


NULL_CHAR, SHIFT=1C1) 
NULL CHAR, CRLF_SHIFT+1C13 


CHAR,LOW_SHIFT-1C1) 
89s 

4731,-16(FP) 

AAU. -28(FP) 
sw 12 CFP) 


) 
) 
SPRESENT 
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EDF 16-Sep-1984 01:22:54  VAX-11 Pascal V2.4-277 Page 41 
Oe=000 Generated Code =3007}38e 94:96:35 PEK SUMSMASTER EEDF-GRCIEDFMAIN. PAS: 1 97) | 
0 FC A 00C4 MOVZBL a@TEMP_DESCRIPTOR+4,RO : 0821 
0D 46 ap 53 at C4 CASEB. R Nak . 
0 V C4 <DISPL 108$ 
iC ¢ -DISPL 
1¢ ¢ -DISPL 
i¢ ¢ -DISPL 
iC ¢ 6 SDISPL 
1¢ 0¢ -DISPL 
O1C o¢ A -DISPL 
1¢ 5c -DISPL 
1¢ 0¢ -DISPL 
1¢ O¢6 “DISPL 
o1¢ C6 “DISPL 
goi¢ C6 “DISPL 
1¢ C66 -DISPL 
0000v 066 -DISPL 109$ 
Ov 11 OOC6A BRB 110$ 
000000986 EF 1 00 0¢6 108$: MOVL #1, IDATA+152 : 0823 
0Ov 11 00C BRB 114$ 
000000986 FF D4 00C75 109$: CLRL  IDATA+152 3 0824 
Ov 11 o¢78 pa BRB 111$ 
000002A8G EF 000000986 FF DO OOC7D 111$: MOVL IDATA+152,QTAB+680 : 0832 
Ov 11 00C8B BRB 113$ 
000000986 EF 01 bo CBA 1128: MOVL  #1,IDATA+152 : 0838 
000000006 EF 000000006 EF 7D 00C91 113$: mova NUCL STRING, DEF AULT_F ILENAME_DESC + 0840 
F8 AD O10E0004 &8F 00 00C9C MOVL  #17694724,-B(FP) 0841 
F4 AD FFFFF246 EF 00 OOCAG MOVL  C.AAY,-12¢FP) 
FC OAD F4 AD YE OOCAC MOVAB -12(FP) ,-4(FP) 
Fg AD 9F 00CB1 PUSHAB -8(FP) 
000000006 EF  9F OOCB4 PUSHAB DEFAULT FILENAME _DESC 
000000006 EF 02 FB OOCBA CALLS #2,STRSTRIM 
000000006 EF 00 000006 F 7D 00CC1 ova NULL STRING NL_DEV_DESC : 0843 
F8 AD 010E000 F pO OOccCc VL  #17694723,-8(FP) + 0844 
F4 AD FFFFF2IA EF DO O0CD4 VLC. AAZ,-12¢FP) 
FC OAD F4 AD 9E OOCOC VAB -12( FP) ,-4(FP) 
F8 AD OF OOCET PUSHAB -8(FP) 
000000006 EF 9F OOCE4 PUSHAB Ni DEV DESC 
000000006 EF 2 £B OOCEA CALLS #2,STRSTRIM 
000000006 _ ‘EF 01 90 OOCF1 MOVE #1.EDITING > 0849 
04 00CFS RET > 0851 
3; Routine Size: 3321 bytes, Routine Base: $CODE + 00206 
0000 INPUT_FDL_FILE: : 0896 
0009 90 <B0RD am<> 
SE os oC SUBL2 #8,SP 
F8 AD p4 CLRL. 0 = BC FP) 
6D 9000 000G EF 9€ MOVAB PASSHANDLER, (FP) 
FS AD 000000006 EF 3 F MOVAB RMS_INPUT COND HANDLER,FP-8 : 0903 
00v000000006_ EF 0 3 17 S #0, RUTO_TONE 2S : 0908 
000000006 f r 1F PUSHAB SHIFT : 0910 
000000006 EF oF ; PUSHAB PASSFV_OUTPUT 
000000006 _ EF 3 FB D CALLS #3,PASSWRITE_STRING 
i pb 4 PUSHL 
7E 000000006 EF 9A 6 MOVZBL TAB,-(SP) 
| 


LLLLLLeSeeseeessesesSsSSSSSsSSSSSSSSSSSSSSSSSSSsSssssssssssssssss ss 
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if-ep-1964 93:99:33 DEESvmsmaSTée’ Gépr secJeprmain.pas:1°917) 
74-000 Generated Code ~Sep-1986 15:5/: are aoa 
oo00000g er 070000006 Os Pb bones CALLS #8 PRSSURITE, CHAR | 
1 0D 0004A PUSHL 
TAB, = (SP) 
7E 000000006 EF oh MOV ZBL : 
ee 
000000006 EF ios FF 9F 00060 PUSHAB ¢ Aba 
FOP dooce PUSHAB PASSFV_OUTPUT 
a CALLS #3, PASSWRITE_STRING 
000000006 > OP doors PUSHAB PASSFV_OUTPUT 
700000006 61 Fe 0007 CALLS #1, PASSWRITELN2 . 0915 
000000006 EF O2 QOORS 28: ELRBY ANALYSIS ONLY ¢ 9921 
000000006 FF 088° =  §—«INSV #144, #1 FLAGS + 8055 
000000006 EF 01 04 1 2 INSV  -#1,#0,41, FLAGS ; 0928 
f 01 00 1 £0 00097 HAB FLAGS . 
rape 20000006 EF OF QOOAO PUSHAS RAB DUMMY 
el oe 
eased aan: % -* CALLS #4, FOC SPARSE 
000000006 EF 4 4 bbe MOVE, RO ISTATUS . 0935 
ween F - BS bone BLBC «STATUS, 58 : 
Qvoo0000006 EF 9 Beet AS ANT TUNE, 5S seal 
Govo0000000G EF nn. 20 G0 fone! PUSHAB SHIFT : 
72 
oooooo00s er PPS FE FB Ooonn CALLS #3,PASSWRITE_STRING 
a. 
7E 900000006 EF 9a 000g MOVZBL TABE=(SP) 
Gooo0000s FE 9F bors CALLS, #3sPASSURITE. CHAR 
000000006 EF , (0S ee PUSHL “. sai: 
000000006 EF 9A OOOF MOVZBL - . 
ey OMOEERSE FFE SSIS SHAS TAS TTT a 
3 FB 00109 CAL ' w 
eonenenes Fn Fe 0110 PUSHAB CAB 
ae Bt PUSHAB PASSFV_OUTPUT 
nooo ex 000000006 FE ie CALLS #3 PASSURITE STRING 
PASSFV 
* aa Fo aie CALLS” #1 ,PASSURITELN2 + 0943 
000000006 EF Ao, 
on : SCODE + OOEFF ; 
; Routine Size: 307 bytes, Routine Base as ENTRY INPUT_ANALYSIS_FILE,“M<> ; 0988 
se . on He rR. =BUEP) 
Fo. OA LER, (FP) : 
nog ooooo000s FF s BBS BOSEDITING. #5 ; 0995 
“ aa, EF 00. tA BBS «#0, ANALYSIS_SPECIFIED, .#3 
T_COND HANDLER, FP=8 
“8, 42 000000006  &F ; ROvAs #0 RUTO_TONE «8 100? 
sonoma 000000006 FF 5 PUSHAB SH 


SS88SS8S8sSsss ss 


¥04-000 


000000006 


000000006 


atte 
000000006 
pea ke ccs 


00000006 
00000006 


000000006 
00v000000006 
000000006 


000000006 


000000006 
000000006 
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000000006 
FFFFFOB2 

000000006 
000000006 


wm 
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EF 
; 000000006 


Bovoo0000006 
000000006 
000000006 
FFFFFO2A 
000000006 
000000006 
000000006 
000000006 


EF 


EF 


EF 
EF 


Routine Base: SCODE + 


SE 
, fs 
8d 000000006 
FB AD 900000006 
00000 
000000006 EF 


5E 


' 
x 


VI 


oF 

- 

FF oF ; 
3 «FB 
re F 
1 58 Hise 
Ft soar 
1 Sie 

EF OF ad 

EF  9F 00099 

EF  9F QO09F 
F 9F QOOAS 

ME us 

bn ihe 

be 
fies 

Fr oF Bee8 
3 «FB O00e 

oo es 

i aes 

ff oF Bons 
2 00 00105 
ae... dt dd 
3 FB 0010D 
F 9F 00114 
: Goth 

04 00191 

01032 
000 00000 
os 08 HSS 
oe See 
F 9E QOOOF 
yf eee 
i st 
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PASSFV_ OUTPUT 
#5 PASSURITE STRING 


#21 

PASSFV_OUTPUT 

#3, PASSWRITE_STRING 

PASSFV_OUTPUT 

#1,PASSWRITELN2 
»ANALYSIS_ONLY 

#0,POINT_AT-ANALYSIS 

#0,NEW {DENT LINE 

#1,44,91,FLAGS 

#1,40,41,FLAGS 

FLAGS 

RAB_DUMMY 

FAB DUMMY 

ANACYSIS_FILENAME_DESC 

#4, FOLSPARSE 

RO, ISTATU 

ANALYSIS_ONLY 

#0,POINT-AT_DEF INITION 

ISTATUS,7$ 

#0 ,AUTO_TUNE ,7$ 

SHIFT 


#4 

PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
C.ABD 


#23 

PASSFV_OUTPUT 
#3,PASSWRITE_STRING 
CRLF 

He 

PASSFV_OUTPUT 

#3, PASSWRITE_STRING 


PASSFV 


#1,PASSWRITELN2 


-8(FP) 
PASSHANDLER, (FP) 
CTRLZ_COND_HANDLER,FP=8 


a 
#1,CLEAR 


DISPATCH FUNCTION: 


sUBL2 


“" 
#8,SP 
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O00 Generated Code ~300n 138% 94:96:38 FEKSuMGaRSTER FEDF-GRCJEDFMAIN. PAS: 97) v 
F8 AD D4 CLRL = = 8 (FP) or 
Te ae ee ce ee Pa: 
00v000000006_ ‘EF 60 £6 17 BBS #O,AUTO_TUNE,3$ : 1199 OC 
OOv AF SF OOOTF SHAB 3$ + 1174 OC 
19 4 2 PUSHL #25 0¢ 
000000006 EF 9F 4 PUSHAB FDL_DEST of 
900000006 ce 3 «FB A CALLS #3,PASSCLOS OC 
990 0000G EF 0 FB 0 1 3$ CALLS #0.POINT_AT DEFINITION : 1176 OC 
00000006 EF 1 3 8 OVB #1,DEST_TS_TERMINAL + 1177 Of 
00006 EF 94 O003F CLRB OPTIMIZING : 1178 01 
Boog EF 94 boode Ten eats eed : 1180 61 
000000006 ai 000 9006 EF 90 9091 MOVB AUTOS TUNE, TAKE _DEFAULTS + 1181 01 
7 000000086 EF 01 0005 CMPL = IDATA+8,#? + 1186 01 
3 13 0006 Ae" Ge 01 
0000v 31 0006 BRW i7$ 01 
00000029 8F DF 00068 PUSHAL #41 : 1193 01 
000000006 EF 01 FB O06E CALLS #1,QUERY 01 
08 00 00000046 FF CF 000 CASEL IDATA+164,#0,48 : 1195 01 
0000v 00070 <DISPL 6$ 01 
0000Vv 007F -DISPL 7$ 01 
0000V 0081 <DISPL 14$ 01 
0000Vv 0083 “DISPL 8$ 01 
0000V 00085 ;DISPL 9$ 01 
6900v 60087 SDISPL 10$ 01 
0000V 0089 “DISPL 11$ 01 
0000V 00088 -DISPL 128 01 
0000V 00080 “DISPL 13$ 01 
0OvV 11 0008F BRB 15$ 01 
000000006 EF 00 FB 00091 6$: CALLS #0,ADD_FDL_LINE : 1197 01 
0000v 31 00098 BRW 208 01 
000000006 EF 00 FB 90098 7$: CALLS #0,DELETE_FDL_LINE : 1198 01 
0Ov 11 OO0A BRB 01 
000000006 EF 00 FB O00A4 8$ CALLS #0,HELP_PROC : 1199 01 
0Ov 11 000AB BRB 01 
000000006 EF 0 FB QOAD 9$ CALLS #0, INVOKE_SCRIPT : 1200 01 
000000006 _ EF 0 r8 0086 10$ CALLS #0 ,MODIFY_FDL_LINE : 1201 91 
000000006 FF 94 OOOBF 11$ CLRB = EDITING : 1202 01 
Ov 11 000C BRB 208 01 
000000006 EF 00 rs 90¢ 128: CALLS r) gSET_PROC : 1203 1 
000000006 EF 09 8 8056 13$: CALLS #0,VIEW_DEF : 1204 01 
Ov 11 0000 RB § 01 
000000006 EF 94 00009 14$: CLRB EDITING : 1315 
000000006 EF 0 re ODF CALLS #0,CREATE_NEW_FDL > 1214 
Ov 1 6 RB § 
Ov 11 158 BRB $ 
000001086 EF 000000086 fF po EA 17$ MOVL  IDATA#8, IDATA+264 : 1333 
0 9% FS CLRB OR : 123 
00000100  8F 000001086 FF pI F CMPL ATA+264 #256 
Ov : 108 BGEGU $ 
OOVFFFFEEDB EF 000001086 EF i 1 BBC IDATA+264,C.ABE,19$ 
: 7 119 INCB. OR 
000000006 EF 90 00112 19$:  MOVB RO, ISAM_ORG 


Se 


Sep- 


£b4-000 Generated Code 1f-ep-1964 9}: 95; 33 PA EKSUMSMASTER FED FSRCIEDFMAIN. PAS;1 #997) 


00000000G_ EF 00 =«6F 1 CALLS #0, INVOKE_SCRIPT 39 
Oe 96138 208: RE ; 1323 
; Routine Size: 289 bytes, Routine Base: SCODE + 01179 
0129A ~ END 
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0 
Q' 
0’ 
0 
Q' 
Q' 
Q' 
Q' 
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0° 
Q' 
0° 
0 
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0 
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16-$ V ascal V2.4-277 Pa 46 
4-000 Pascal Compilation Statistics §-Fep-1944 9%: ¢5:33 PE KSUNSMASTER EDF -SRCIEDFMAIN. PAS: 1 7) 


COMMAND QUALIFIERS 
PASCAL/MACHINE /NODEBUG/NOCHE CK/LIS=LIS$:EDFMAIN/OBJ=OBJS:EDFMAIN MSRCS$:EDFMAIN 


/CHECK= (NOBOUNDS ,NOCASE_SELECTORS ,NOOVERFLOW, NOPOINTERS , NOSUBRANGE ) 
/DEBUG: (NOS YRAOLS, NOTRACEB 


ACK) 
aster cova OE spent 
ROR_LIMIT=30 / 


$;1 
0BJ;1 
TNOTROSS “REFERENCE /ER T=30 OG FLOATING /MACHINE_CODE /NOOLD_VERSION /OPTIMIZE /NOSTANDARD /WARNINGS 


COMPILER INTERNAL TIMING 


Phose Faults PU Time Elapsed Time 
Initialization 77 0: 9.% 0:03.9 
ource sper yee 1155 0:22.1 5:09.1 
Source List ng 2] 0:01.8 0:04. 
ree Construction 2 ; Be Ried 0: + 
Flow Analysis 1 0:00.3 0:00. 
Profit (e 51 0:00.5 0:01. 
Context Analysis 255 0:04. 0:10.1 
Name Pack ing 19 0:00. Bp: 09-8 
code Selection 7 00:01. BOE 
Final 140 eT 00:10.5 
TOTAL 2083 00:35.8 05:45.8 


COMPILATION STATISTICS 


CPU Time: 00:35.8 (2198 Lines/Minute) 

Tene Time: rF 745.8 

Page Faults: 83 

Compilation Complete 
{ 
| 
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